COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "EX3"
C00004 ENDMK
C⊗;
BEGIN "EX3"
	REQUIRE "GEOMES.HDR[GEM,HE]" SOURCE_FILE;
INTEGER PROCEDURE MAKECUBE(REAL DX,DY,DZ);
BEGIN "MAKECUBE"
	INTEGER B,F,E,V1,V2,V3,V4;
	DEFINE αα="COMMENT";				αα COMMENT DELIMITER;
αα MAKE RECTANGULAR LAMINA;
	B ← MKBFV;	F ← PFACE(B);	V1 ← PVT(B);	αα MAKE POINT POLYHDERA;
	XWC(V1) ← DX/2;	YWC(V1) ← DY/2;	ZWC(V1) ←-DZ/2;	αα POSITION FIRST VERTEX;
	V2 ← MKEV(F,V1); XWC(V2) ← -DX/2;		αα MAKE AND POSITION 2ND VERTEX;
	V3 ← MKEV(F,V2); YWC(V3) ← -DY/2;		αα MAKE AND POSITION 3RD VERTEX;
	V4 ← MKEV(F,V3); XWC(V4) ←  DX/2;		αα MAKE AND POSITION 4TH VERTEX;
	MKFE(V1,F,V4); F ← PFACE(F);
	GEODPY;PLOTO("FIG34.1");
αα MAKE FOUR SPURS ON THE LAMINA;
	V1 ← MKEV(F,V1);V2 ← MKEV(F,V2);
	V3 ← MKEV(F,V3);V4 ← MKEV(F,V4);
	ZWC(V1) ← ZWC(V2) ← ZWC(V3) ← ZWC(V4) ← DZ/2;
	GEODPY;PLOTO("FIG34.2");
αα JOINT SPURS TO FORM FINAL FACE;
	MKFE(V1,F,V2);	MKFE(V2,F,V3);
	MKFE(V3,F,V4);	MKFE(V4,F,V1);
	RETURN(B);
END "MAKECUBE";
	MKUNIV;	MAKECUBE(10,8,6);
	GEODPY;PLOTO("EXAMPL.3");
END "EX3";